inherited fmAgreementsByTemplateEditor: TfmAgreementsByTemplateEditor
  Left = 702
  Top = 260
  Width = 433
  Height = 507
  Align = alCustom
  Caption = #1044#1086#1073#1072#1074#1083#1077#1085#1080#1077' '#1076#1086#1075#1086#1074#1086#1088#1086#1074' '#1087#1086' '#1096#1072#1073#1083#1086#1085#1091
  Constraints.MinHeight = 416
  Constraints.MinWidth = 433
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 442
    Width = 417
  end
  inherited Panel1: TPanel
    Width = 417
    Height = 33
    TabOrder = 1
    inherited BitBtn1: TBitBtn
      Left = 248
      Top = 6
    end
    inherited BitBtn2: TBitBtn
      Left = 335
      Top = 6
    end
  end
  object pnTop: TPanel [2]
    Left = 0
    Top = 33
    Width = 417
    Height = 112
    Align = alTop
    TabOrder = 0
    DesignSize = (
      417
      112)
    object lbStartDate: TLabel
      Left = 8
      Top = 60
      Width = 123
      Height = 13
      Caption = #1044#1072#1090#1072' '#1074#1089#1090#1091#1087#1083#1077#1085#1080#1103' '#1074' '#1089#1080#1083#1091
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lbEndDate: TLabel
      Left = 288
      Top = 59
      Width = 90
      Height = 13
      Anchors = [akTop, akRight]
      Caption = #1044#1072#1090#1072' '#1079#1072#1074#1077#1088#1096#1077#1085#1080#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object rgDepartments: TcxRadioGroup
      Left = 1
      Top = 1
      Align = alTop
      Caption = #1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077
      Properties.Columns = 5
      Properties.Items = <
        item
          Caption = #1044'/'#1089
          Value = 0
        end
        item
          Caption = #1053#1072#1095'. '#1075#1080#1084#1085'.'
          Value = 1
        end
        item
          Caption = #1057#1088#1077#1076#1085'. '#1096#1082'.'
          Value = 2
        end
        item
          Caption = #1057#1090#1072#1088#1096'. '#1096#1082'.'
          Value = 3
        end
        item
          Caption = #1051#1072#1075#1077#1088#1100
          Value = 4
        end>
      Properties.OnChange = rgDepartmentsPropertiesChange
      Style.LookAndFeel.Kind = lfOffice11
      Style.LookAndFeel.SkinName = ''
      StyleDisabled.LookAndFeel.Kind = lfOffice11
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.Kind = lfOffice11
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.Kind = lfOffice11
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 0
      Height = 49
      Width = 415
    end
    object deStartDate: TcxDateEdit
      Left = 9
      Top = 76
      ParentFont = False
      Properties.DateButtons = [btnClear, btnToday]
      Properties.InputKind = ikMask
      Properties.SaveTime = False
      Properties.ShowTime = False
      Properties.WeekNumbers = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.Kind = lfOffice11
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.Kind = lfOffice11
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.Kind = lfOffice11
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.Kind = lfOffice11
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 1
      Width = 121
    end
    object deEndDate: TcxDateEdit
      Left = 288
      Top = 76
      Anchors = [akTop, akRight]
      ParentFont = False
      Properties.DateButtons = [btnClear, btnToday]
      Properties.InputKind = ikMask
      Properties.SaveTime = False
      Properties.ShowTime = False
      Properties.WeekNumbers = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.Kind = lfOffice11
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.Kind = lfOffice11
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.Kind = lfOffice11
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.Kind = lfOffice11
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 2
      Width = 121
    end
  end
  object pnBottom: TPanel [3]
    Left = 0
    Top = 145
    Width = 417
    Height = 297
    Align = alClient
    TabOrder = 7
    object gbNote: TcxGroupBox
      Left = 1
      Top = 101
      Align = alClient
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081' '#1082' '#1076#1086#1075#1086#1074#1086#1088#1091
      TabOrder = 1
      Height = 195
      Width = 415
      object mmNote: TcxMemo
        Left = 2
        Top = 18
        Align = alClient
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -13
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.LookAndFeel.Kind = lfOffice11
        Style.LookAndFeel.SkinName = 'Office2007Blue'
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.Kind = lfOffice11
        StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
        StyleFocused.LookAndFeel.Kind = lfOffice11
        StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
        StyleHot.LookAndFeel.Kind = lfOffice11
        StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
        TabOrder = 0
        Height = 175
        Width = 411
      end
    end
    object gbServiceTypes: TcxGroupBox
      Left = 1
      Top = 1
      Align = alTop
      Caption = #1059#1089#1083#1091#1075#1072
      TabOrder = 0
      Visible = False
      Height = 100
      Width = 415
      object bdcSpecCond: TdxBarDockControl
        Left = 2
        Top = 18
        Width = 411
        Height = 81
        Align = dalTop
        BarManager = bmAgreements
      end
    end
  end
  inherited dlgDS: TDataSource
    Left = 16
  end
  object dsAgreements: TpFIBDataSet
    SelectSQL.Strings = (
      'select first 1 A.*, P.PNAME, P.PLASTNAME, P.PPATRONYMIC'
      'from AGREEMENTS A'
      'inner join AGR_POLUCH_USLUG APU on (APU.AGID = A.AGID)'
      'inner join PEOPLE P on (P.PID = APU.PID)'
      'where (APU.PID = :PID)'
      'order by A.AGDATEEND desc')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 208
  end
  object qAgreementsInsertOrUpdate: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'select A.OUT_ID, A.OUT_ERROR'
      
        'from AGREEMENTS$EDIT(:AOPERATION, :AGID, :AGNUM_N, :AGNUM, :AGDA' +
        'TE, :AGDATEBEGIN, :AGDATEEND, :AGFORMTYPE, :AGNOTE, :AGDATECLOSE' +
        ', :AGNOTECLOSE, :AGISNEEDRESIGN, :AGISDELETE, :AGUSERREGISTER, :' +
        'AGDATEREGISTER, :AGPODRTYPE) A')
    Left = 152
  end
  object dsAgrPodpisant: TpFIBDataSet
    SelectSQL.Strings = (
      'select AP.*'
      'from AGR_PODPISANT AP'
      'where (AP.AGID = :AGID)')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 208
    Top = 49
  end
  object qAgrPodpisantInsertOrUpdate: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'select AP.OUT_ID, AP.OUT_ERROR'
      
        'from AGR_PODPISANT$EDIT(:AOPERATION, :ID, :AGID, :PID, :ID_JURID' +
        'ICAL_FACE, :POTYPE, :POSTATUS) AP')
    Left = 152
    Top = 49
  end
  object dsAgrPoluchUslug: TpFIBDataSet
    SelectSQL.Strings = (
      'select APU.*'
      'from AGR_POLUCH_USLUG APU'
      'where (APU.AGID = :AGID)')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 208
    Top = 98
  end
  object qAgrPoluchUslugInsertOrUpdate: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'select APU.OUT_ID, APU.OUT_ERROR'
      'from AGR_POLUCH_USLUG$EDIT(:AOPERATION, :AGID, :PID) APU')
    Left = 151
    Top = 98
  end
  object dsCheckActionPeriodAgreement: TpFIBDataSet
    SelectSQL.Strings = (
      'select A.AGID'
      'from AGREEMENTS A'
      'inner join AGR_POLUCH_USLUG APU on (APU.AGID = A.AGID)'
      'where ((APU.PID = :PID) and'
      
        '       (((:START_DATE between A.AGDATEBEGIN and A.AGDATEEND) or ' +
        '(:END_DATE between A.AGDATEBEGIN and A.AGDATEEND)) and'
      '        (A.AGDATEEND between :START_DATE and :END_DATE) or'
      
        '        (:START_DATE <= A.AGDATEBEGIN) and (:END_DATE >= A.AGDAT' +
        'EEND) or'
      
        '        (:START_DATE >= A.AGDATEBEGIN) and (:END_DATE <= A.AGDAT' +
        'EEND)) and'
      '       (coalesce(A.AGISDELETE, 0) = 0))')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 208
    Top = 150
  end
  object cdsErrors: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 264
    Top = 207
  end
  object dsErrors: TpFIBDataSet
    SelectSQL.Strings = (
      'select cast(null as D_INT) as PID,'
      '       cast(null as D_STR255) as FIRST_NAME,'
      '       cast(null as D_STR255) as MIDDL_NAME,'
      '       cast(null as D_STR255) as LAST_NAME,'
      '       cast(null as D_INT) as AGREEMENT_NUMBER'
      'from rdb$database')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 208
    Top = 206
  end
  object dsFIBEntranceFee: TpFIBDataSet
    SelectSQL.Strings = (
      'select ST.*'
      'from SERVICES_TYPE ST'
      'inner join (select T1.*'
      '            from (with recursive TREE as'
      '                       (select SD.SDNAME, SD.SDID, SD.SDPARID'
      '                        from SYS_DIC SD'
      '                        where SD.SDPARID = 1987'
      '                        union all'
      '                        select SD1.SDNAME, SD1.SDID, SD1.SDPARID'
      '                        from SYS_DIC SD1'
      
        '                        inner join TREE T on T.SDID = SD1.SDPARI' +
        'D)'
      '                  select SDNAME,'
      '                         SDID,'
      '                         SDPARID'
      
        '                 from TREE T) as T1) as SEL on SEL.SDID = ST.SDI' +
        'D'
      'where ((coalesce(ST.STISDELETE, 0) = 0) and'
      '       (coalesce(ST.STISARCHIVE, 0) = 0) and'
      '       --(:DATE between ST.STDATEBEGIN and ST.STDATEEND) and'
      
        '       (position('#39'1'#39', ST.STPODR, cast(:APODR as D_INT)) = :APODR' +
        '))')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 208
    Top = 265
  end
  object qSpecCondInsertOrUpdate: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'select SC.OUT_ID, SC.OUT_ERROR--, SC.OUT_SCTARIFWITHDISCOUNT'
      
        'from SPEC_COND$EDIT(:AOPERATION, :SCID, :SCNUM_N, :AGID, :SCNUMB' +
        'ER, :SCDATE, :SCDATEEND, :SCNOTE, :SCISDELETE, :SCISNEEDRESIGN, ' +
        ':SCDATEREGISTER, :SCUSERREGISTER, :SCDISCOUNT, :SCTYPEOFDISCOUNT' +
        ', :SCDISCOUNTNOTE, :SCDISCOUNTAUTORISATION, :SCTYPEOFDISC, :SCDA' +
        'TEBEGIN, :SCMINPERIOD, :SCTARIF, :SCTARIFWITHDISCOUNT, :SCAMOUNT' +
        ', :SCBALANCE, :SCDATARASCH, :SCDATERASTORJ, :POID, :SCISGRAFEDIT' +
        ', :SCAPPROVED, :SCUSERAPPROVED, :ID_SERVICES_TYPE) SC')
    Left = 152
    Top = 265
  end
  object qServicesInsertOrUpdate: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'select S.OUT_ID, S.OUT_ERROR'
      
        'from SERVICES$EDIT(:AOPERATION, :SID, :SCID, :STID, :SCOUNT, :SN' +
        'OTE, :STIMEBEGIN, :STIMEEND, :SISDELETE) S')
    Left = 152
    Top = 321
  end
  object bmAgreements: TdxBarManager
    AllowReset = False
    AutoDockColor = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Categories.Strings = (
      'Default'
      'SpecCond')
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    DockColor = clBtnFace
    PopupMenuLinks = <>
    UseSystemFont = True
    Left = 64
    DockControlHeights = (
      0
      0
      0
      0)
    object bmAgreementsBar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = #1044#1086#1087'. '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1103
      CaptionButtons = <>
      DockControl = bdcSpecCond
      DockedDockControl = bdcSpecCond
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 652
      FloatTop = 260
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'beInranceFee'
        end
        item
          Visible = True
          ItemName = 'beIsCreateEntranceFee'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'beMainService'
        end
        item
          Visible = True
          ItemName = 'beIsCreateMainService'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'beSettlementDate'
        end>
      MultiLine = True
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = True
    end
    object beInranceFee: TcxBarEditItem
      Caption = #1042#1089#1090#1091#1087#1080#1090'. '#1074#1079#1085#1086#1089
      Category = 1
      Hint = #1042#1089#1090#1091#1087#1080#1090'. '#1074#1079#1085#1086#1089
      Style = DMInv.stlCaption
      Visible = ivAlways
      ShowCaption = True
      Width = 233
      PropertiesClassName = 'TcxExtLookupComboBoxProperties'
      Properties.DropDownAutoSize = True
      Properties.DropDownListStyle = lsFixedList
      Properties.DropDownSizeable = True
      Properties.ImmediatePost = True
      Properties.View = tvEntranceFee
      Properties.KeyFieldNames = 'STID'
      Properties.ListFieldItem = tvEntranceFee_STNAME
      Properties.OnInitPopup = beInranceFeePropertiesInitPopup
    end
    object beMainService: TcxBarEditItem
      Caption = #1054#1089#1085#1086#1074#1085#1072#1103
      Category = 1
      Hint = #1054#1089#1085#1086#1074#1085#1072#1103
      Style = DMInv.stlCaption
      Visible = ivAlways
      ShowCaption = True
      Width = 262
      PropertiesClassName = 'TcxExtLookupComboBoxProperties'
      Properties.DropDownAutoSize = True
      Properties.DropDownListStyle = lsFixedList
      Properties.DropDownSizeable = True
      Properties.ImmediatePost = True
      Properties.View = tvMainServices
      Properties.KeyFieldNames = 'STID'
      Properties.ListFieldItem = tvMainServices_STNAME
      Properties.OnInitPopup = beMainServicePropertiesInitPopup
    end
    object beSettlementDate: TcxBarEditItem
      Caption = #1056#1072#1089#1095#1105#1090#1085#1072#1103' '#1076#1072#1090#1072
      Category = 1
      Hint = #1056#1072#1089#1095#1105#1090#1085#1072#1103' '#1076#1072#1090#1072
      Visible = ivAlways
      ShowCaption = True
      Width = 40
      PropertiesClassName = 'TcxSpinEditProperties'
      Properties.ImmediatePost = True
      Properties.MaxValue = 31.000000000000000000
      Properties.MinValue = 1.000000000000000000
      Properties.ValueType = vtInt
      InternalEditValue = 0
    end
    object beIsCreateEntranceFee: TcxBarEditItem
      Caption = #1057#1086#1079#1076#1072#1074#1072#1090#1100
      Category = 1
      Hint = #1057#1086#1079#1076#1072#1074#1072#1090#1100' '#1076#1086#1087'. '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1077' '#1085#1072' '#1074#1089#1090#1091#1087#1080#1090'. '#1074#1079#1085#1086#1089
      Visible = ivAlways
      ShowCaption = True
      Width = 10
      PropertiesClassName = 'TcxCheckBoxProperties'
      Properties.ImmediatePost = True
      Properties.NullStyle = nssUnchecked
    end
    object beIsCreateMainService: TcxBarEditItem
      Caption = #1057#1086#1079#1076#1072#1074#1072#1090#1100
      Category = 1
      Hint = #1057#1086#1079#1076#1072#1074#1072#1090#1100' '#1076#1086#1087'. '#1089#1086#1075#1083#1072#1096#1077#1085#1080#1077' '#1085#1072' '#1086#1089#1085#1086#1074#1085#1091#1102' '#1091#1089#1083#1091#1075#1091
      Visible = ivAlways
      ShowCaption = True
      Width = 10
      PropertiesClassName = 'TcxCheckBoxProperties'
      Properties.ImmediatePost = True
      Properties.NullStyle = nssUnchecked
    end
  end
  object cxGridViewRepository1: TcxGridViewRepository
    Left = 104
    object tvEntranceFee: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsEntranceFee
      DataController.KeyFieldNames = 'STID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.IncSearch = True
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      OptionsView.Header = False
      object tvEntranceFee_STID: TcxGridDBColumn
        DataBinding.FieldName = 'STID'
        Visible = False
        VisibleForCustomization = False
      end
      object tvEntranceFee_STNAME: TcxGridDBColumn
        DataBinding.FieldName = 'STNAME'
        SortIndex = 0
        SortOrder = soAscending
      end
    end
    object tvMainServices: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsMainServices
      DataController.KeyFieldNames = 'STID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.IncSearch = True
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      OptionsView.Header = False
      object tvMainServices_STID: TcxGridDBColumn
        DataBinding.FieldName = 'STID'
        Visible = False
        VisibleForCustomization = False
      end
      object tvMainServices_STNAME: TcxGridDBColumn
        DataBinding.FieldName = 'STNAME'
        SortIndex = 0
        SortOrder = soAscending
      end
    end
  end
  object dsEntranceFee: TDataSource
    DataSet = dsFIBEntranceFee
    Left = 264
    Top = 265
  end
  object dsFIBMainServices: TpFIBDataSet
    SelectSQL.Strings = (
      'select ST.*'
      'from SERVICES_TYPE ST'
      'inner join (select T1.*'
      '            from (with recursive TREE as'
      '                       (select SD.SDNAME, SD.SDID, SD.SDPARID'
      '                        from SYS_DIC SD'
      '                        where SD.SDPARID = 1880'
      '                        union all'
      '                        select SD1.SDNAME, SD1.SDID, SD1.SDPARID'
      '                        from SYS_DIC SD1'
      
        '                        inner join TREE T on T.SDID = SD1.SDPARI' +
        'D)'
      '                  select SDNAME,'
      '                         SDID,'
      '                         SDPARID'
      
        '                 from TREE T) as T1) as SEL on SEL.SDID = ST.SDI' +
        'D'
      'where ((coalesce(ST.STISDELETE, 0) = 0) and'
      '       (coalesce(ST.STISARCHIVE, 0) = 0) and'
      '       --(:DATE between ST.STDATEBEGIN and ST.STDATEEND) and'
      
        '       (position('#39'1'#39', ST.STPODR, cast(:APODR as D_INT)) = :APODR' +
        '))')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 208
    Top = 321
  end
  object dsMainServices: TDataSource
    DataSet = dsFIBMainServices
    Left = 264
    Top = 321
  end
  object qScheduleOfPaymentsInsertOrUpdate: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'select GP.OUT_ID, GP.OUT_ERROR, GP.OUT_AMOUNT'
      
        'from SC_GRAFPLAT$EDIT(:AOPERATION, :GPID, :SCID, :GPMONTH, :GPCO' +
        'UNTPAYDATE, :GPCOUNTDAYMONTH, :GPTARIF, :GPDATE, :GPNOTEEDIT, :G' +
        'PAMOUNT, :GPCOUNT, :GPBEGINPERIOD, :GPENDPERIOD, :STATE_PARAMS, ' +
        ':SCDATEBEGIN, :SCDATEEND, :SCDATARASCH) GP')
    Left = 153
    Top = 206
  end
  object dsPeriodOplaty: TpFIBDataSet
    SelectSQL.Strings = (
      'select first 1 PO.*'
      'from PERIOD_OPLATY PO'
      'where (PO.POIS_ACTIVE = 1)')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 209
    Top = 377
  end
  object dsCheckExistEnranceFee: TpFIBDataSet
    SelectSQL.Strings = (
      'select CH.AGID, CH.SCID'
      'from P_CHECK_EXIST_ENTRANCE_FEE(:APID, :ADATE, :IN_AGID) CH')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 208
    Top = 428
  end
end
